; this is: System7Resources.txt  7/4/91  1:08:00AM
; Mon Apr 13 1992  00:00:00 -- PocketForth 0.6
; alert color tables
; Sun Jul 04 1993  07:53:00 -- aete, etc. 0.6.3


.ALIGN 2
RESOURCE	'aete'	0		; information about apple events
	DC.W	$90,0,0,1		; I don't know what this means...
	DC.B	$0E,'Required Suite'
	DC.B	$2C,'Events that every application should support'
	DC.L	'reqd'
	DC.W	1,1,0,0,0,0		; its lifted from some other apps.

.ALIGN 2
RESOURCE	'actb'	257	'About'
	DC.L	$00000000,$00000004	; Color table for About dialog
	DC.L	$0000FFFF,$FFFFCCCC	
	DC.L	$00019999,$33333333
	DC.L	$00020000,$00000000
	DC.L	$00030000,$00000000
	DC.L	$0004FFFF,$FFFFFFFF

.ALIGN 2
RESOURCE	'actb'	258	'Red Alert'
	DC.L	$00000000,$00000004	; color table for red alert
	DC.L	$0000AAAA,$00000000
	DC.L	$00010000,$00000000
	DC.L	$00020000,$00000000
	DC.L	$00030000,$00000000
	DC.L	$0004FFFF,$FFFFFFFF

; help resources

.ALIGN 2
RESOURCE	'hfdr'	59840	; unsigned -5696
	DC.W	2	; version
	DC.L	0,0	; options+ID
	DC.W	1	; number

	DC.W	20,3	; HMStringResItem
	DC.W	1,16	; STR# 1, item 16
	DC.W	1,16
	DC.W	1,16
	DC.W	1,16	

.ALIGN 2
RESOURCE	'hmnu'	1	'Apple'
	DC.W	2	; version
	DC.L	0,0	; options
	DC.W	2	; number of items+1

	DC.W	4,256	; HMSkipItem for missing & null

	DC.W	4,256	; HMSkipItem for title

	DC.W	20,3	; HMStringResItem
	DC.W	1,1	; STR# 1, item 1
	DC.W	0,0	;
	DC.W	0,0	;
	DC.W	0,0	;

.ALIGN 2
RESOURCE	'hmnu'	2	'File'
	DC.W	2	; version
	DC.L	0,0	; options
	DC.W	9	; number of items+1

	DC.W	4,256	; HMSkipItem for missing & null

	DC.W	20,3	; HMStringResItem
	DC.W	1,2	; STR# 1, item 2
	DC.W	0,0	;
	DC.W	1,19	; dimmed menu title
	DC.W	0,0	;

	DC.W	20,3	; HMStringResItem
	DC.W	1,3	; STR# 1, item 3
	DC.W	0,0	;
	DC.W	0,0	;
	DC.W	0,0	;

	DC.W	4,256	; HMSkipItem for seperator

	DC.W	20,3	; HMStringResItem
	DC.W	1,4	; STR# 1, item 4
	DC.W	0,0	;
	DC.W	0,0	;
	DC.W	0,0	;

	DC.W	20,3	; HMStringResItem
	DC.W	1,5	; STR# 1, item 5
	DC.W	0,0	;
	DC.W	0,0	;
	DC.W	0,0	;

	DC.W	4,256	; HMSkipItem for seperator

	DC.W	20,3	; HMStringResItem
	DC.W	1,6	; STR# 1, item 6
	DC.W	0,0	;
	DC.W	0,0	;
	DC.W	0,0	;

	DC.W	4,256	; HMSkipItem for seperator

	DC.W	20,3	; HMStringResItem
	DC.W	1,7	; STR# 1, item 7
	DC.W	0,0	;
	DC.W	0,0	;
	DC.W	0,0	;

.ALIGN 2
RESOURCE	'hmnu'	3	'Edit'
	DC.W	2	; version
	DC.L	0,0	; options
	DC.W	7	; number of items+1

	DC.W	4,256	; HMSkipItem for missing & null

	DC.W	20,3	; HMStringResItem
	DC.W	1,8	; STR# 1, item 8
	DC.W	0,0	;
	DC.W	1,20	; dimmed menu title
	DC.W	0,0	;

	DC.W	20,3	; HMStringResItem
	DC.W	1,9	; STR# 1, item 9
	DC.W	0,0	;
	DC.W	0,0	;
	DC.W	0,0	;

	DC.W	4,256	; HMSkipItem for seperator

	DC.W	20,3	; HMStringResItem
	DC.W	1,10	; STR# 1, item 10
	DC.W	0,0	;
	DC.W	0,0	;
	DC.W	0,0	;

	DC.W	20,3	; HMStringResItem
	DC.W	1,11	; STR# 1, item 11
	DC.W	0,0	;
	DC.W	0,0	;
	DC.W	0,0	;

	DC.W	20,3	; HMStringResItem
	DC.W	1,12	; STR# 1, item 12
	DC.W	0,0	;
	DC.W	0,0	;
	DC.W	0,0	;

	DC.W	20,3	; HMStringResItem
	DC.W	1,13	; STR# 1, item 13
	DC.W	0,0	;
	DC.W	0,0	;
	DC.W	0,0	;

.ALIGN 2
RESOURCE	'hrct'	128
	DC.W	2	; version
	DC.L	0,0	; options+ID
	DC.W	1	; number of rectangles

	DC.W	20,3	; HMStringResItem
	DC.W	35,55	;
	DC.W	0,0,1024,1024	; hot rect
	DC.W	1,14	; STR# 1, item 14

.ALIGN 2
RESOURCE	'hwin'	128
	DC.W	2	; version
	DC.L	0	; options
	DC.W	2	; number of rectangles

	DC.W	128	; ID of hrct
	DC.L	'hrct'
	DC.W	12	; length of string to compare
	DC.B	12,'Pocket Forth'	; window name

.ALIGN 2
RESOURCE	'hdlg'	257
	DC.W	2	; version
	DC.W	0	; start with item 0
	DC.L	0,0	; options+ID+variation
	DC.W	1	; number of items

	DC.W	4,256	; HMSkipItem for missing & null

	DC.W	20,3	; HMStringResItem
	DC.W	30,170	; tip location
	DC.W	0,0,0,0	; default alternate rect
	DC.W	1,15	; string for enabled
	DC.W	0,0	; never dimmed
	DC.W	0,0	; or checked
	DC.W	0,0	; or marked either
	
.ALIGN 2
RESOURCE	'hdlg'	259
	DC.W	2	; version
	DC.W	0	; start with item 0
	DC.L	0,0	; options+ID+variation
	DC.W	2	; number of items

	DC.W	4,256	; HMSkipItem for missing & null

	DC.W	20,3	; HMStringResItem
	DC.W	0,0	; tip location
	DC.W	0,0,0,0	; default alternate rect
	DC.W	1,17	; string for enabled
	DC.W	0,0	; never dimmed
	DC.W	0,0	; or checked
	DC.W	0,0	; or marked either

	DC.W	20,3	; HMStringResItem
	DC.W	0,0	; tip location
	DC.W	0,0,0,0	; default alternate rect
	DC.W	1,18	; string for enabled
	DC.W	0,0	; never dimmed
	DC.W	0,0	; or checked
	DC.W	0,0	; or marked either
	
.ALIGN 2
RESOURCE	'STR#'	1
	DC.W	20	; number of strings

	; item 1
	DC.B	67,'IntroducesÊtheÊauthor andÊgivesÊinformation '
	DC.B	'aboutÊtheÊapplication. '

	; item 2
	DC.B	122,'File menu',13,13,'Items in this menu select, '
	DC.B	'save, and print Pocket Forth programs.  You can '
	DC.B	'also debug and quit the application.'

	; item 3
	DC.B	213,'Displays a dialog box that allows you to select '
	DC.B	'a text document.',13,13,'If the document contains a '
	DC.B	'Pocket Forth program, it will be interpreted.  If '
	DC.B	'the document is not a program, an interpreter error '
	DC.B	'will be displayed.'

	; item 4
	DC.B	130,'Makes changes to Pocket Forth permanent.  '
	DC.B	'Opened documents are not effected.'
	DC.B	13,13,'        CAUTION!',13,'Use only on a copy of '
	DC.B	'Pocket Forth!'

	; item 5
	DC.B	243,'              DANGER!',13,'Do not release the '
	DC.B	'button!',13,13,'Unless you have installed a '
	DC.B	'debugging application you will get a bomb box!  '
	DC.B	'You can then use the "Resume" (or "Continue") '
	DC.B	'button to quit.',13,13,'Enters an installed '
	DC.B	'debugger, such as TMON or Macsbug.'

	; item 6
	DC.B	66,'Beep the speaker.',13,13,'Printing is left as an '
	DC.B	'exercise for the reader.'

	; item 7
	DC.B	105,'Quit Pocket Forth.',13,13
	DC.B	'Unless you have Saved prior to Quitting, '
	DC.B	'all additions and changes will be disgarded.'

	; item 8
	DC.B	104,'Edit menu',13,13,'Paste programs into '
	DC.B	'Pocket Forth.',13,13,'Also contains commands '
	DC.B	'for working with text and graphics.'

	; item 9
	DC.B	39,'Nothing can be Undone, this just beeps.'

	; item 10
	DC.B	42,'You cannot Cut anything.  This just beeps.'

	; item 11
	DC.B	64,'There is nothing to Copy, this just beeps.'
	DC.B	13,13,'Is this getting old?'

	; item 12
	DC.B	161,'Interpret a Pocket Forth program from the '
	DC.B	'clipboard as if you had typed it in.  If the '
	DC.B	'clipboard contains text that is not a program, an '
	DC.B	'error will be indicated.'

	; item 13
	DC.B	43,'There is nothing to Clear, this just beeps.'

	; item 14
	DC.B	209,'Main Window.',13,13,'Type or paste Pocket '
	DC.B	'Forth ÔwordsÕ into this window.  The text is '
	DC.B	'interpreted after each line and any output is '
	DC.B	'displayed here.',13,13,'The prompt, Ôok _Õ ' 
	DC.B	'indicates Pocket Forth is ready for your input.' 

	; item 15
	DC.B	230,'Pocket Forth is FREE!',13
	DC.B	13,'Contact me at any of the following addresses:'
	DC.B	13,'ÊEmail:ÊÊÊÊÊÊheilman@pc.maricopa.edu'
	DC.B	13,'ÊUSÊMail:ÊÊÊÊboxÊ8345,ÊPhoenix 85066'
	DC.B	13,'ÊCompuServe: [70566,1474]'
	DC.B	13,'ÊAOL:ÊÊÊÊÊÊÊcheilman'
	DC.B	13,13,'Click this window to close this dialog.'

	; item 16
	DC.B	102,'Pocket Forth 0.6.3',13,13
	DC.B	'This is a programming language. Use this '
	DC.B	'application to create other applications.'

	; item 17
	DC.B	244,'To replace the dictionary on the disk with the '
	DC.B	'dictionary image in memory, click this button.  '
	DC.B	'All definitions and variables are saved in their '
	DC.B	'current state.',13,13,'The old version is overwritten, '
	DC.B	'so be sure to have a backup copy before you do this.'

	; item 18
	DC.B	63,'Click this button if you do not have a back-'
        DC.B    'up of Pocket Forth.'

	; item 19
	DC.B	57,'The File Menu is not available under these circumstances.'

	; item 20
	DC.B	57,'The Edit Menu is not available under these circumstances.'

; icons

.ALIGN 2
RESOURCE	'ics#'	128
	DC.L	$07C01830,$20084184,$43448302,$87828302
	DC.L	$83028302,$47844004,$20081830,$07C00000
	DC.L	$07C01FF0,$3FF87FFC,$7FFCFFFE,$FFFEFFFE
	DC.L	$FFFEFFFE,$7FFC7FFC,$3FF81FF0,$07C00000

.ALIGN 2
RESOURCE	'icl4'	128
	DC.L	$00000000,$00000000,$0FFFFFFF,$F0000000,$00000000,$0000000F,$FF555555,$5FFF0000
	DC.L	$00000000,$000000FF,$00F55555,$5555F000,$00000000,$000000FF,$000F5555,$55555F00
	DC.L	$00000000,$00000000,$000F5555,$555555F0,$00000000,$00000000,$000F5555,$555555F0
	DC.L	$00000000,$00000000,$000F5555,$5555555F,$00000000,$FFFFFF00,$00FF5555,$5555555F
	DC.L	$0000FFFF,$000000F0,$00F01055,$5555555F,$00FF0000,$CCCCCDF0,$00F10105,$5555555F
	DC.L	$0F00CCCC,$CCCCCDF0,$00FFF010,$5555555F,$0F0CCC00,$0CCCCDF0,$0F060F01,$5555555F
	DC.L	$F00C0003,$32CCCDF0,$0F1FF010,$5555555F,$F0CC0033,$03CDCDF0,$FC010101,$0D55555F
	DC.L	$F0C00033,$C0CDDDF0,$0FC01010,$155555F0,$F0C00333,$3CCCDCDF,$00333101,$015555F0
	DC.L	$F0C00033,$CCCDDCDF,$00F31010,$1C555F00,$F0CC0C33,$CCCDDCDF,$00FC0101,$CC55F000
	DC.L	$F0CCC333,$3CDDCCDF,$000FFFFC,$1C55F000,$F0CCDDCC,$DDDDCCDF,$0000000F,$CFFFFF00
	DC.L	$F0CCCCDD,$DDCCCCDF,$00000000,$FF0000F0,$F0CCCCCC,$CCCCCCDF,$00000000,$F0000000
	DC.L	$F0DDDDDD,$DDDDDCDF,$0000000F,$00DD0000,$F0DDDDDD,$DDDDDDF0,$00000000,$0DEEE000
	DC.L	$F0DDDDDD,$DDDDDDF0,$00000000,$0DCCE000,$FFFDFFFF,$FFFFFDF0,$00000000,$0DCCE000
	DC.L	$00FFF000,$00000FF0,$00000000,$DEEEEE00,$F0000000,$00000000,$00000DDD,$EEE13FAF
	DC.L	$000F0000,$00000000,$0000DEEE,$EEEAFFF0,$000000F0,$00000000,$0000DEEE,$EAFF0000
	DC.L	$00000000,$0F00F0FF,$0FFFFFFF,$FF000000,$00000000,$00000000,$00000000,$00000000

.ALIGN 2
RESOURCE	'ics4'	128
	DC.L	$00000EEE,$EE000000,$000EE00C,$CCEE0000
	DC.L	$00E000C0,$C0CCE000,$0E000003,$32CCDE00
	DC.L	$0E000033,$C32CCE00,$E0000033,$0CCCDDE0
	DC.L	$E0000333,$3CCCCDE0,$E00C0033,$CCCCDDE0
	DC.L	$E0C0C033,$CCCCDDE0,$E00CCC33,$CCCCDDE0
	DC.L	$0ECCC333,$3CCDDE00,$0ECCCCCC,$CCDDDE00
	DC.L	$00ECCCCC,$DDDDE000,$000EEDDD,$DDEE0000
	DC.L	$00000EEE,$EE000000,$00000000,$00000000

.ALIGN 2
RESOURCE	'ics8'	128
	DC.L	$00000000,$00ABABAB,$ABAB0000,$00000000
	DC.L	$000000AB,$AB0101F6,$F6F6ABAB,$00000000
	DC.L	$0000AB01,$0101F601,$F601F608,$AB000000
	DC.L	$00AB0101,$010101D8,$D8160808,$33AB0000
	DC.L	$00AB0101,$0101D8D8,$F6D816F6,$08AB0000
	DC.L	$AB010101,$0101D8D8,$01F6F608,$3333AB00
	DC.L	$AB010101,$01D8D8D8,$D8F6F608,$0833AB00
	DC.L	$AB0101F6,$0101D8D8,$F6F60808,$3333AB00
	DC.L	$AB01F601,$F601D8D8,$F608F608,$3333AB00
	DC.L	$AB0101F6,$F6F6D8D8,$08080808,$3333AB00
	DC.L	$00ABF6F6,$08D8D8D8,$D8080833,$33AB0000
	DC.L	$00ABF608,$F6080808,$08083333,$33AB0000
	DC.L	$0000AB08,$08080808,$33333333,$AB000000
	DC.L	$000000AB,$AB333333,$3333ABAB,$00000000
	DC.L	$00000000,$00ABABAB,$ABAB0000,$00000000
	DC.L	$00000000,$00000000,$00000000,$00000000

.ALIGN 2
RESOURCE	'icl8'	128
	DC.L	$00000000,$00000000,$00000000,$00000000,$00FFFFFF,$FFFFFFFF,$FF000000,$00000000
	DC.L	$00000000,$00000000,$00000000,$000000FF,$FFFFABAB,$ABABABAB,$ABFFFFFF,$00000000
	DC.L	$00000000,$00000000,$00000000,$0000FFFF,$0000FFAB,$ABABABAB,$ABABABAB,$FF000000
	DC.L	$00000000,$00000000,$00000000,$0000FFFF,$000000FF,$ABABABAB,$ABABABAB,$ABFF0000
	DC.L	$00000000,$00000000,$00000000,$00000000,$000000FF,$ABABABAB,$ABABABAB,$ABABFF00
	DC.L	$00000000,$00000000,$00000000,$00000000,$000000FF,$ABABABAB,$ABABABAB,$ABABFF00
	DC.L	$00000000,$00000000,$00000000,$00000000,$000000FF,$ABABABAB,$ABABABAB,$ABABABFF
	DC.L	$00000000,$00000000,$FFFFFFFF,$FFFF0000,$0000FFFF,$ABABABAB,$ABABABAB,$ABABABFF
	DC.L	$00000000,$FFFFFFFF,$01010101,$0101FF00,$0000FF01,$0101ABAB,$ABABABAB,$ABABABFF
	DC.L	$0000FFFF,$01010101,$08080808,$0833FF00,$0000FF01,$010101AB,$ABABABAB,$ABABABFF
	DC.L	$00FF0101,$01080808,$08080808,$0833FF00,$0000FFFF,$FF010101,$ABABABAB,$ABABABFF
	DC.L	$00FF0108,$080801F6,$01F60808,$0833FF00,$00FF48EC,$48FF0101,$ABABABAB,$ABABABFF
	DC.L	$FF010108,$010101D8,$D816F608,$0833FF00,$00FF01FF,$FF010101,$ABABABAB,$ABABABFF
	DC.L	$FF010808,$0101D8D8,$01D80833,$0833FF00,$FF080101,$01010101,$0133ABAB,$ABABABFF
	DC.L	$FF010801,$F601D8D8,$F601F633,$3308FF00,$00FF0801,$01010101,$01ABABAB,$ABABFF00
	DC.L	$FF0108F6,$01D8D8D8,$D8F60808,$330833FF,$0000D8D8,$D8010101,$0101ABAB,$ABABFF00
	DC.L	$FF0108F6,$F601D8D8,$F6080833,$330833FF,$0000FFD8,$01010101,$0108ABAB,$ABFF0000
	DC.L	$FF0108F6,$08F6D8D8,$08F60833,$330833FF,$0000FF08,$01010101,$3301ABAB,$FF000000
	DC.L	$FF010808,$F6D8D8D8,$D8083333,$080833FF,$000000FF,$FFFFFF08,$0108ABAB,$FF000000
	DC.L	$FF010808,$33330808,$33333333,$080833FF,$00000000,$000000FF,$01FFFFFF,$FFFF0000
	DC.L	$FF010808,$08083333,$33330808,$080833FF,$00000000,$00000000,$FFFF0000,$0000FF00
	DC.L	$FF010808,$08080808,$08080808,$080833FF,$00000000,$00000000,$FF000000,$00000000
	DC.L	$FF01F9F9,$F9F9F9F9,$F9F9F9F9,$F90833FF,$00000000,$000000FF,$0000FAFA,$00000000
	DC.L	$FF01F9F9,$F9F9F9F9,$F9F9F9F9,$F933FF00,$00000000,$00000000,$00FAFBFC,$FC000000
	DC.L	$FF013333,$33333333,$33333333,$3333FF00,$00000000,$00000000,$00FAF6F6,$FC000000
	DC.L	$FFFFFF33,$FFFFFFFF,$FFFFFFFF,$FF33FF00,$00000000,$00000000,$00FAF6F6,$FC000000
	DC.L	$0000FFFF,$FF000000,$00000000,$00FFFF00,$00000000,$00000000,$FAFBFCFC,$FCFC0000
	DC.L	$FF000000,$00000000,$00000000,$00000000,$00000000,$00FAFAFA,$FBFCFC05,$D8FFFDFF
	DC.L	$000000FF,$00000000,$00000000,$00000000,$00000000,$FAFBFBFC,$FCFCFCFD,$FFFFFF00
	DC.L	$00000000,$0000FF00,$00000000,$00000000,$00000000,$FAFCFCFC,$FCFDFFFF,$00000000
	DC.L	$00000000,$00000000,$00FF0000,$FF00FFFF,$00FFFFFF,$FFFFFFFF,$FFFF0000,$00000000
	DC.L	$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000,$00000000

	END